﻿Imports System.ComponentModel

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class ucCountryDetails
    Inherits UcBaseEditControl
    Implements IUcEditControl

#Region "Designer"
    'UserControl overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    Public Sub New()

        ' This call is required by the designer.
        InitializeComponent()
        
        ' Add any initialization after the InitializeComponent() call.
        
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.CountryCodelbl = New System.Windows.Forms.Label()
        Me.CountryCode = New org.codegen.win.controls.CGTextBox(Me.components)
        Me.CountryNamelbl = New System.Windows.Forms.Label()
        Me.CountryName = New org.codegen.win.controls.CGTextBox(Me.components)
        
        
        Me.SuspendLayout()
        '
        'CountryCodelbl
        '
        Me.CountryCodelbl.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CountryCodelbl.Location = New System.Drawing.Point(5, 15)
        Me.CountryCodelbl.Name = "CountryCodelbl"
        Me.CountryCodelbl.Size = New System.Drawing.Size(120, 20)
        Me.CountryCodelbl.TabIndex = 0
        Me.CountryCodelbl.Text = "Country Code"
        Me.CountryCodelbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'CountryCode
        '
        Me.CountryCode.AssociatedLabel = Me.CountryCodelbl
        Me.CountryCode.BackColor = System.Drawing.Color.LightYellow
        Me.CountryCode.ErrProvider = Nothing
        Me.CountryCode.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CountryCode.FormatPattern = Nothing
        Me.CountryCode.isMandatory = True
        Me.CountryCode.Location = New System.Drawing.Point(135, 15)
        Me.CountryCode.MaxLength = 255
        Me.CountryCode.MaxValue = Nothing
        Me.CountryCode.MinValue = Nothing
        Me.CountryCode.Name = "CountryCode"
        Me.CountryCode.Size = New System.Drawing.Size(200, 21)
        Me.CountryCode.TabIndex = 0
        '
        'CountryNamelbl
        '
        Me.CountryNamelbl.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CountryNamelbl.Location = New System.Drawing.Point(5, 45)
        Me.CountryNamelbl.Name = "CountryNamelbl"
        Me.CountryNamelbl.Size = New System.Drawing.Size(120, 20)
        Me.CountryNamelbl.TabIndex = 1
        Me.CountryNamelbl.Text = "Country Name"
        Me.CountryNamelbl.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'CountryName
        '
        Me.CountryName.AssociatedLabel = Me.CountryNamelbl
        Me.CountryName.BackColor = System.Drawing.Color.LightYellow
        Me.CountryName.ErrProvider = Nothing
        Me.CountryName.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CountryName.FormatPattern = Nothing
        Me.CountryName.isMandatory = True
        Me.CountryName.Location = New System.Drawing.Point(135, 45)
        Me.CountryName.MaxLength = 255
        Me.CountryName.MaxValue = Nothing
        Me.CountryName.MinValue = Nothing
        Me.CountryName.Name = "CountryName"
        Me.CountryName.Size = New System.Drawing.Size(200, 21)
        Me.CountryName.TabIndex = 1
        '
        
        '
        
        '
        'ucCountryDetails
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.AutoValidate = System.Windows.Forms.AutoValidate.EnableAllowFocusChange
        Me.Controls.Add(Me.CountryCodelbl)
        Me.Controls.Add(Me.CountryCode)
        Me.Controls.Add(Me.CountryNamelbl)
        Me.Controls.Add(Me.CountryName)
        Me.Name = "ucCountryDetails"
        Me.Size = New System.Drawing.Size(833, 345)
        
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

	
	
	Friend WithEvents CountryCodelbl As System.Windows.Forms.Label
	Friend WithEvents CountryCode As CGTextBox
	Friend WithEvents CountryNamelbl As System.Windows.Forms.Label
	Friend WithEvents CountryName As CGTextBox


#End Region

#Region "Properties"
	
#End Region

#Region "Methods"
    
	''' <summary>
	''' Fills the controls on the screen from data in the object
	''' </summary>
	''' <remarks></remarks>
    Public Sub _loadData() Handles Me.evLoadObjectData


        Dim mo As Country = DirectCast(Me.ModelObject(), Country)
        	Me.CountryCode.value = mo.CountryCode
	Me.CountryName.value = mo.CountryName


		
		

    End Sub

	

    ''' <summary>
    ''' Loads the object from the database and then sets the proeperties 
    ''' of the object from values on the controls
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub _loadToObject() Handles Me.evLoadToObject

        Dim mo As Country = DirectCast(me.ModelObject, Country)
        	mo.setCountryCode(Me.CountryCode.text)
	mo.setCountryName(Me.CountryName.text)


    End Sub

	Public Sub _InitializeControl() Handles Me.InitializeControl

		If Me.isInitialized = False Then
			'setup datasources here
			

			Me.isInitialized = True
		End If

	End Sub

#End Region


End Class


